---
title: "HTML Widgets Showcase"
knit: (function(input_file, encoding) {
out_dir <- 'docs';
rmarkdown::render(input_file,
encoding=encoding,
output_file=file.path(dirname(input_file), out_dir, 'index.html'))})
output:
flexdashboard::flex_dashboard:
orientation: rows
vertical_layout: scroll
source: embed
---
Inputs {.sidebar}
-------------------------------------
### Example project
Some text about the project
Row
-------------------------------------
### Data Table - This is the first row first column of a grid layout
```{r}
library(ggplot2)
library(plotly)
p <- ggplot(data = diamonds, aes(x = cut, fill = clarity)) +
geom_bar(position = position_dodge2(preserve = "total"))
ggplotly(p)
```
Row
-------------------------------------
### This the second row first column of a grid layout
```{r}
library(pier)
data <- data.frame(label = c('Female','Male'),
value = c(1,3,0,0),
color = RColorBrewer::brewer.pal(4, 'Spectral'))
pier(data)
```
### Publication Type
```{r}
library(pier)
data <- data.frame(label = c('Journal Article','Chapter','Magazine Article', 'Dissertation/Thesis', 'Others'),
value = c(3,0,0,0,1),
color = RColorBrewer::brewer.pal(5, 'Spectral'))
pier(data)
```
Row
-------------------------------------
### This the third row first column of a grid layout
```{r}
library(DT)
datatable(iris, options = list(pageLength = 5))
```